<!--#INCLUDE FILE="conn.asp"-->
<!-- #include file="comsub.asp" -->
<!-- #include file="function_charCode.asp" -->
<!-- #include file="function.asp" -->
<script src=inc/js2.js></script>

<%
if request.form="" then
%>
      <html>
      <SCRIPT Language=JavaScript>
      function setfocus() {
           if (form1.AdvanceProblem.value==""){
                form1.AdvanceProblem.focus();
                return false;
           }
       }

     function check(theform) {
           if (theform.myUN.value==""){
                alert("Ϊգ");
                theform.myUN.focus();
                return false;
           }
           if (theform.AdvanceProblem.value==""){
                alert("Ϊգ");
                theform.AdvanceProblem.focus();
                return false;
           }
           if (theform.answer.value==""){
                alert("Ϊգ");
                theform.answer.focus();
                return false;
           }
       }
      </SCRIPT>
      <body topmargin=0 onload=setfocus()>
      <center>
      <form name=form1 action="getbackPW.asp" method="post">
            <input type="hidden" name="h1" value="ok">
            <font color="#000070" face="_GB2312" size="4"><b>һ</b></font>
            <table border="0">
                  <tr><td align=left>û<br><input type="text" name="myUN" size="29">
                  <tr><td align=left>עʱ⣺<br><input type="text" name="AdvanceProblem" size="29">
                  <tr><td align=left height="3">
                  <tr><td align=left>Ĵ𰸣<br><input type="text" name=answer size="29">
<%
               If VCYes() Then
                   Response.Write "<tr><td height=4><tr><td align=righyt>֤룺<input type='text' name='chknum' size='10'>&nbsp;"
                   Call ImgVCShow()
               End If
%>
            </table>
            <p>
            <input type=submit name=s1 value=" " onclick="return check(this.form);">&nbsp;<input type=reset name=r1 value=" д">
            <input type="reset" value="˳" OnClick="self.close();">
      </form>
      </center>
      </body>
      </html>
<%
Else
      dim sure,myUN,AdvanceProblem,answer
      sure = Request("h1")
      if sure = "ok" Then

            if VCYes() then
                Call ImgVCShow_handle2()
            end If
       
            myUN= Trim(Request("myUN"))
            AdvanceProblem= server.urlencode(Trim(Request("AdvanceProblem")))
            answer= server.urlencode(Trim(Request("answer")))

            Dim rs,sql
            sql="select * from ts_userinfo where username='"&myUN&"'"
            set rs=server.createobject("adodb.recordset")
            rs.open sql,conn,1,1
                  if rs.bof and rs.eof then
                         Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_getbackPW(0))</SCRIPT>"
                  Else
                         Call clearDLDate(myUN)
                         if rs("AdvanceProblem")<>AdvanceProblem Or rs("answer")<>answer Then
                                Call ExitUL(myUN)
                                Call sequenceDLCount(myUN,rs("DLCount"))
                                Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_getbackPW(1))</SCRIPT>"
                          else
                                Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_getbackPW(2))</SCRIPT>" &urldecode(rs("mingwenPW"))& "<SCRIPT language=Javascript>passwords(promptInfo_getbackPW(3))</SCRIPT>"
                                Response.write "<br><br><center><input type=reset value=ر OnClick=window.close();></CENTER>"
		                        Call ImgVCRndnum()
                          end if
                  end if
            rs.close
            Set rs = Nothing
      end if
end if

Call conn_Nothing()
%>


